home *** CD-ROM | disk | FTP | other *** search
/ AEMail 2.40 / AEMail v2.40.iso / arexx / deladrgrp.aem < prev    next >
Text File  |  2000-03-11  |  1KB  |  56 lines
  1. /* AEMail Delete Name Variable from Address Book Group */
  2.  
  3. OPTIONS RESULTS
  4.  
  5. /* TRACE ALL */
  6.  
  7. GETVAR
  8.  
  9. emailaddr = RESULT
  10.  
  11. IF (POS('@', emailaddr, 1) = 0) THEN DO
  12.     OKAY1 "No email address given"
  13.     EXIT
  14.     END
  15.  
  16. OK = 0
  17. DO UNTIL OK = 1
  18.     ADDRESS_BOOK LIST GROUP DESCRIPTION LF
  19.     grplist = RESULT
  20.     GETLISTITEM "'"grplist"' 'Select the Group Wanted'"
  21.     grpname = RESULT
  22.     IF (grpname = "") THEN EXIT
  23.     PARSE VAR grpname grpname dflt
  24.     dflt = STRIP(dflt, 'L')
  25.     ADDRESS_BOOK GET grpname TYPE
  26.     addrtype = RESULT
  27.     IF (addrtype = -1) THEN DO
  28.         OKAY1 "Group Nickname Does Not Exist"
  29.         IF (RESULT = 1) THEN OK = 0
  30.         END
  31.     IF (addrtype = 0) THEN DO
  32.         OKAY1 "Group Nickname is already used for an Individual"
  33.         IF (RESULT = 1) THEN OK = 0
  34.         END
  35.     IF (addrtype = 1) THEN OK = 1
  36.     END
  37.  
  38. cmd = "ADDRESS_BOOK DELETE FROM GROUP " grpname "'"emailaddr"'"
  39.  
  40. cmd
  41.  
  42. IF (RESULT = -5) THEN DO
  43.     OKAY2 '"Delete Group|Leave Name in Group"' "Address was last name in group"
  44.     IF (RESULT = 1) THEN DO
  45.         cmd = "ADDRESS_BOOK DELETE GROUP " grpname
  46.         cmd
  47.         END
  48.     END
  49.  
  50. IF (RESULT = 0) THEN DO
  51.     OKAY1 emailaddr " not found in group"
  52.     END
  53.  
  54.  
  55.  
  56.